(shrink-window-if-larger-than-buffer): Don't try to

back up from beginning of buffer.

diff --git a/lisp/window.el b/lisp/window.el
index 6010f894791454566e01380f59ea5191518311ed..c26b79af485eeb5ee30248d3efa7b96b930d6f76 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -280,7 +280,7 @@ or if the window is the only window of its frame."
                 (window-height (window-height)))
            ;; Don't try to redisplay with the cursor at the end
            ;; on its own line--that would force a scroll and spoil things.
-           (when (and (eobp) (bolp))
+           (when (and (eobp) (bolp) (not (bobp)))
              (forward-char -1))
             (when (> window-height (1+ text-height))
               (shrink-window